#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"

User Function MET00001()

Local  xResult:=""
Local xIDDesconto   	:= 0
Local xTotValor			:=0
Local xTotTabela		:=0
If Alltrim(FunName()) == "MATA410"
xVlrNegociado  	:= GDFIELDPOS("C6_ZVALOR") //Numero de serie
xPrcTabela  	:= GDFIELDPOS("C6_ZPRCTAB")
xQtd 			 := GDFIELDPOS("C6_QTDVEN")

For i:= 1 to Len(aCols)
	If !aCols[i][Len(aHeader)+1] = .T.
		xTotValor += aCols[i][xVlrNegociado] *  aCols[i,xQtd]
		xTotTabela += aCols[i][xPrcTabela]	* aCols[i,xQtd]	
	ENDIF
next  

	M->C5_ZIDDESC := ((xTotTabela - xTotValor) / xTotTabela)*100       
	M->C5_ZVLRTOT := xTotValor

oGetPV:Refresh()
endif
Return//(xTotValor)